home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE06 / CLINIC / MSAPP.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1995-10-19  |  655 b   |  28 lines
  1. #include <windows.h>
  2. #include <stdio.h>
  3.  
  4. extern "C" double FAR PASCAL _export TestFloatPascal(double);
  5. extern "C" double FAR _cdecl _export TestFloatCDecl(double);
  6.  
  7. int PASCAL WinMain(HANDLE hInstance, HANDLE hPrevInstance,
  8.                    LPSTR lpCmdLine,  int nCmdShow)
  9. {
  10.   char buffer[80];
  11.   double d1 = 2.5, d2;    
  12.  
  13.   _asm int 3
  14.   d2 = TestFloatPascal(d1);
  15.   sprintf(buffer, "The result is %lf", d2);
  16.   MessageBox(NULL, buffer, "TEST", MB_OK|MB_TASKMODAL);
  17.  
  18.   _asm int 3
  19.   d2 = TestFloatCDecl(d1);
  20.   sprintf(buffer, "The result is %lf", d2);
  21.   MessageBox(NULL, buffer, "TEST", MB_OK|MB_TASKMODAL);
  22.  
  23.   
  24.   return(0);
  25. }
  26.  
  27.  
  28.